home *** CD-ROM | disk | FTP | other *** search
/ Canon Creative 3 / Canon Creative 3 - Disc 2.iso / designe / DE.DIR / 00002.ls < prev    next >
Encoding:
Text File  |  1997-05-08  |  515 b   |  20 lines
  1. on checkCastDimensions
  2.   set ww to 0
  3.   set hh to 0
  4.   repeat with i = 82 to 121
  5.     put "cast " & the name of cast i & " ΓÇóΓÇó w = " & the width of cast i
  6.     if the width of cast i > ww then
  7.       set ww to the width of cast i
  8.     end if
  9.   end repeat
  10.   put " "
  11.   repeat with i = 82 to 121
  12.     put "cast " & the name of cast i & "h = " & the height of cast i
  13.     if the height of cast i > hh then
  14.       set hh to the height of cast i
  15.     end if
  16.   end repeat
  17.   put "max width = " & ww
  18.   put "max height = " & hh
  19. end
  20.